home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / shapeg1a / mdshapes.bas < prev    next >
Encoding:
BASIC Source File  |  1999-10-11  |  1.1 KB  |  52 lines
  1. Attribute VB_Name = "mdShapes"
  2. Option Explicit
  3.  
  4. Public Type AngData
  5.     Degrees As Integer
  6.     Length As Long
  7. End Type
  8.  
  9. Public Type Pt
  10.     X As Currency
  11.     Y As Currency
  12. End Type
  13.  
  14. Const pi = 3.14159265358979
  15.  
  16. Public AutoClear As Boolean
  17. Public Sets() As AngData
  18. Public SHeight As Long
  19.  
  20. Sub Main()
  21.     Randomize Timer
  22.     SetNum (3)
  23.     frmShapes.Show
  24. End Sub
  25.  
  26. Public Function SetValues(X As Long, Y As Long) As Pt
  27.     SetValues.X = X
  28.     SetValues.Y = Y
  29. End Function
  30.  
  31. Sub SetNum(NewNum As Integer)
  32.     ReDim Sets(1 To NewNum)
  33. End Sub
  34.  
  35. Public Function Sine(ByVal i As Double) As Double
  36.     Sine = Sin(i * (pi / 180))
  37. End Function
  38.  
  39. Public Function Cosine(ByVal i As Double) As Double
  40.     Cosine = Cos(i * (pi / 180))
  41. End Function
  42.  
  43. Public Function ISine(ByVal i As Double) As Double
  44.     On Error Resume Next
  45.     ISine = 90
  46.     ISine = Atn(-i / Sqr(-i * i + 1)) + 2 * Atn(1) * 180 / pi
  47. End Function
  48.  
  49. Public Function ICosine(ByVal i As Double) As Double
  50.     ICosine = Atn(-i / Sqr(-i * i + 1)) + 2 * Atn(1) * 180 / pi
  51. End Function
  52.